;(flet ((ola()
;       (print "Olá Mundo!") ))
;  (ola)
;  )

;(flet ((ola-nome()
;       (let ((nome (read) ))
;         (princ "Olá ")
;         (princ nome)
;         (princ "!") )
;       ))
;  (ola-nome)
;  )

;(flet ((soma()
;       (let ((a 1)
;             (b 2))
;         (+ a b) ) ))
;  (soma)
;  )

;(flet ((soma-valores()
;         (princ "Digite a e b:")
;         (let ((a (read) )
;               (b (read) )
;               )
;           (+ a b) )
;         ))
;  (soma-valores)
;  )

(flet ((soma-valores-arg(a b)
         (+ a b)))
  (let ((x (read))
        (y (read))
        )
    (soma-valores-arg x y))
  )
